home *** CD-ROM | disk | FTP | other *** search
/ The 640 MEG Shareware Studio 2 / The 640 Meg Shareware Studio CD-ROM Volume II (Data Express)(1993).ISO / rbbs / drop173c.zip / RSB5DROP.MRG < prev   
Text File  |  1992-02-08  |  2KB  |  54 lines
  1. * ------------[ BLED merge (c) Ken Goosens ]----------------
  2. * Merge this against RBBSSUB5.BAS to produce RBBSSUB5.NEW
  3. * RBBSSUB5.BAS: Dated 9-1-1991 Size 100075 bytes
  4. * -----[ Merge file created 02-08-1992 - R. Molinelli ]-----
  5. * REPLACING old line(s) by new
  6. 63100 ' $SUBTITLE: 'DoorReturn - Subroutine to process requests from a door'
  7. ' $PAGE
  8. '
  9. '  NAME    -- DoorReturn
  10. '
  11. '  INPUTS  -- PARAMETER                      MEANING
  12. '             DOUTx.DEF               File of requests
  13. '
  14. '  OUTPUTS -- ZUserSecLevel     Revised Security Level
  15. '
  16. '  PURPOSE -- To give Doors a stable way to make requests
  17. '             to the host.
  18. '
  19.       SUB DoorReturn STATIC
  20.       IF NOT ZExitToDoors THEN _
  21.          EXIT SUB
  22.       CALL OpenUser (ZHighestUserRecord)
  23.       FIELD 5, 128 AS ZUserRecord$
  24.       FIELD 5,31 AS ZUserName$, _
  25.               15 AS ZPswd$, _
  26.                2 AS ZSecLevel$, _
  27.               14 AS ZUserOption$,  _
  28.               24 AS ZCityState$, _
  29.                2 AS MachineType$, _
  30.                1 AS ZBankTime$,_
  31.                4 AS ZTodayDl$, _
  32.                4 AS ZTodayBytes$, _
  33.                4 AS ZDlBytes$, _
  34.                4 AS ZULBytes$, _
  35.               14 AS ZLastDateTimeOn$, _
  36.                3 AS ZListNewDate$, _
  37.                2 AS ZUserDnlds$, _
  38.                2 AS ZUserUplds$, _
  39.                2 AS ZElapsedTime$
  40.       ZSubParm = 6
  41.       CALL FileLock
  42.       GET 5,ZUserFileIndex
  43.       ZTimesLoggedOn = CVI(MID$(ZUserOption$,1,2))                   ' RM020801
  44.       CALL SetSysOp
  45.       CALL SetUserPref
  46.       CALL SetUserUpDn
  47.       ZGlobalsSet = ZFalse
  48.       CALL SetGlobalUpDn
  49.       ZElapsedTime = CVI(MID$(ZUserRecord$,127,2))
  50.       ZFileName$ = "DOUT" + ZNodeID$ + ".DEF"
  51.       CALL FindIt (ZFileName$)
  52.       IF NOT ZOK THEN _
  53.          GOTO 63197
  54.